home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / m_c generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  31 lines
  1. 1000 print "[147]  machine code generator - working.."
  2. 2000 forl=0to19:cx=0:ford=0to15:reada:cx=cx+a:poke49152+l*16+d,a:nextd
  3. 2010 reada:ifa<>cxthenprint"error in line";2040+(l*10):stop
  4. 2020 nextl
  5. 2040 data172,167,2,169,204,133,254,169,0,133,251,133,253,169,4,133,2346
  6. 2050 data252,192,0,240,62,32,92,192,230,251,208,2,230,252,230,253,2718
  7. 2060 data208,2,230,254,165,251,201,231,208,231,165,252,201,7,208,225,3039
  8. 2070 data192,0,208,7,173,134,2,141,171,2,96,173,171,2,141,134,1747
  9. 2080 data2,160,0,153,0,216,153,255,216,153,254,217,153,233,218,200,2583
  10. 2090 data208,241,96,162,0,161,251,129,253,76,24,192,162,0,161,253,2369
  11. 2100 data129,251,96,160,0,140,172,2,173,167,2,72,165,251,72,165,2017
  12. 2110 data252,72,172,168,2,162,0,169,160,129,251,173,169,2,129,253,2263
  13. 2120 data136,240,13,230,251,230,253,208,236,230,252,230,254,76,117,192,3148
  14. 2130 data206,167,2,240,19,165,251,24,109,170,2,144,4,230,252,230,2215
  15. 2140 data254,133,251,133,253,76,114,192,238,172,2,173,172,2,201,2,2368
  16. 2150 data240,43,238,169,2,104,133,252,104,133,251,133,253,104,141,167,2467
  17. 2160 data2,165,252,24,105,212,133,254,173,167,2,56,233,2,72,165,2017
  18. 2170 data251,72,165,252,72,165,251,24,105,41,76,155,192,104,133,252,2310
  19. 2180 data104,133,251,104,141,167,2,173,168,2,56,233,2,141,168,2,1847
  20. 2190 data165,251,24,105,82,144,2,230,252,133,251,96,172,168,2,162,2239
  21. 2200 data0,161,253,24,105,128,129,251,136,240,15,230,251,208,2,230,2363
  22. 2210 data252,230,253,208,2,230,254,76,255,192,206,167,2,240,21,165,2753
  23. 2220 data251,24,109,170,2,144,2,230,252,133,251,230,253,208,2,230,2491
  24. 2230 data254,76,252,192,96,0,0,0,44,83,0,83,0,83,0,83,1246
  25. 3000 rem ** ready to save **
  26. 3010 print "    any key to save"
  27. 3020 getk$:ifk$=""then3020
  28. 3030 poke 43,0:poke44,192:poke45,57:poke46,193
  29. 3070 save "bpop",8
  30. 3080 rem change ,8 to ,1 for tape use
  31.